home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / p2c1.20-a5.appl Folder / p2c 1.20a5 / system.imp < prev    next >
Encoding:
Text File  |  1992-11-19  |  3.6 KB  |  127 lines  |  [TEXT/MPS ]
  1.  
  2. { Declarations for Pascal built-in objects }
  3.  
  4. { Note: All functions with unusual syntaxes are not included here }
  5.  
  6.  
  7. {*IgnoreNonAlpha=0}    { If Language=UCSD, make sure we can parse "__module" }
  8.  
  9.  
  10. __module SYSTEM;    {PERMANENT}
  11.  
  12.  
  13. __export
  14.  
  15. { Standard Pascal functions }
  16. function    arctan(x : longreal) : longreal;
  17. function    cos(x : longreal) : longreal;
  18. function    exp(x : longreal) : longreal;
  19. function    ln(x : longreal) : longreal;
  20. procedure mark(var p);
  21. function    odd(i : integer) : boolean;
  22. procedure release(var p);
  23. function    round(x : longreal) : integer;
  24. function    sin(x : longreal) : longreal;
  25. function    sqrt(x : longreal) : longreal;
  26. function    trunc(x : longreal) : integer;
  27.  
  28.  
  29.  
  30. { HP Pascal extensions }
  31. function    binary(s : string) : integer;
  32. procedure gotoxy(x, y : integer);
  33. function    hex(s : string) : integer;
  34. function    lastpos(anyvar f : text) : integer;
  35. function    linepos(var f : text) : integer;
  36. procedure moveleft(anyvar s, d : integer; i : integer);
  37. procedure moveright(anyvar s, d : integer; i : integer);
  38. function    octal(s : string) : integer;
  39. function    str(s : string; i, j : integer) : string;
  40. function    strlen(s : string) : integer;
  41. function    strltrim(s : string) : string;
  42. function    strmax(s : string) : integer;
  43. function    strpos(s, s2 : string) : integer;
  44. function    strrpt(s : string; i : integer) : string;
  45. function    strrtrim(s : string) : string;
  46.  
  47.  
  48.  
  49. { Turbo/UCSD Pascal extensions }
  50. function    copy(s : string; i, j : integer) : string;
  51. procedure delete(var s; i, j : integer);
  52. function    frac(x : longreal) : longreal;
  53. procedure freemem(var p);
  54. procedure getmem(var p; i : integer);
  55. procedure insert(s : string; var s2; i : integer);
  56. function    length(s : string) : integer;
  57. function    log(x : longreal) : longreal;
  58. function    maxavail : integer;
  59. function    memavail : integer;
  60. procedure move(var s, d; i : integer);
  61. function    paramcount : integer;
  62. function    paramstr(i : integer) : string;
  63. function    pos(s, s2 : string) : integer;
  64. function    ptr(i, j : integer) : pointer;
  65. function    pwroften(r : longreal) : longreal;
  66. function    swap(i : integer) : integer;
  67. function    upcase(c : char) : char;
  68.  
  69.  
  70. { Turbo standard variables }
  71.  
  72. var
  73.     HeapPtr, FreePtr: pointer;
  74.  
  75.  
  76. { Oregon Software Pascal-2 extensions }
  77. {FuncMacro p2_inew(n) = malloc(n)}
  78. {FuncMacro p2_new(x,n) = (*x = Malloc(n))}
  79. {FuncMacro p2_dispose(x,n) = Free(*x)}
  80. procedure noioerror(var f);
  81. function ioerror(var f) : boolean;
  82. function iostatus(var f) : integer;
  83. {FuncMacro exitst(s) = exit(s)}
  84. procedure exitst(s : integer);
  85. {FuncMacro P_getcmdline(low,high,line,len)=(*len=P_getcmdline(low,high,line))}
  86. procedure P_getcmdline(var line : array [low..high : integer] of char; var len : integer);
  87. procedure TimeStamp(var day, month, year, hour, min, sec : integer);
  88.  
  89.  
  90. { VAX Pascal extensions }
  91. function    expo(r : real) : integer;
  92. function    index(s, s2 : string) : integer;
  93. function    pad(s : string; padchar : char; size : integer) : string;
  94. function    substr(s : string; i, j : integer) : string;
  95. function    uround(x : longreal) : integer;
  96. function    utrunc(x : longreal) : integer;
  97.  
  98.  
  99.  
  100. { MPW Pascal extensions }
  101. function    arccos(r : longreal) : longreal;
  102. function    arcsin(r : longreal) : longreal;
  103. function    arctanh(r : longreal) : longreal;
  104. function    cosh(r : longreal) : longreal;
  105. function    exp10(r : longreal) : longreal;
  106. function    log10(r : longreal) : longreal;
  107. function    scaneq(limit : integer; ch : char; var s : univ integer) : integer;
  108. function    scanne(limit : integer; ch : char; var s : univ integer) : integer;
  109. function    sinh(r : longreal) : longreal;
  110. function    tan(r : longreal) : longreal;
  111. function    tanh(r : longreal) : longreal;
  112.  
  113.  
  114. { SUN Pascal extensions }
  115. type alfa = packed array [1..10] of char;
  116. {FuncMacro argc = P_argc}
  117. function    argc : integer;
  118. {FuncMacro null = 0}
  119. procedure null;
  120.  
  121.  
  122.  
  123. end.
  124.  
  125.  
  126.  
  127.